عضو شوید

عضویت سریع

خدا خواست اينقدر تنها نباشم گل باغ بي برگ و بارم تو باشي شنيدم که مي آيد از سمت باران بهاري که اميدوارم تو باشي چه مي شد اگر روزگارم تو باشي بهارم تو باشي خزانم تو باشي فقط يک هوس دارم اينکه هميشه به هر جا که پاميگذارم تو باشي کمي کودکانه اما نمي شد که اسب تو باشم سوارم تو باشي صدا کن که در حجم اين بي کسي ها کنار تو باشم کنارم تو باشي تو باشي بعد از تو دنيا نباشد تو باشي شب و روزم تو باشي خدا خواست چشمم براه تو باشد که مهتاب شبهاي تارم تو باشي من با به تمناي تو خواهم ماند من با سخن از تو خواهم خواند ما خاطره از شبانه مي گيريم ما خاطره از گريختن در باد از لذت ارمغان در پنهان ما خاطره ايم از نجواها...... آندم که با تو باشم محنت و غم سر آید وآن شب که بی تو باشم جانم ز تن بر آید پیش تو دل نهادم ای فتنه ی دل و جان تا از بلای عشقت ما را چه بر سر آید دارد شکایت ای گل دل بی نهایت از تو اما به دل نیارم هرگز شکایت از تو افتد ز پرده بیرون راز نهفته آخر دل پر شکایت از غم لب پر حکایت از تو گل من کجایی؟کجایی..... تا به کی همچو گل بی وفایی بیا و ز رفیقان جدا شو که آتشم بر جگر زد جدایی... یارم به یک لا پیرهن خوابیده زیر نسترن ترسم که بوی نسترن مست است و هوشیارش کند ای آفتاب آهسته نِه پا در حریم یار من ترسم صدای پای تو خواب است و بیدارش کند هیچ میدونی بدون تو خورشید هم برام از درخشش میوفته هیچ میدونی بدون تو صدای هیچ پرنده ای خوش آهنگ نیست هیچ میدونی بدون تو ستاره ها هم بهم چشمک نمی زنن هیچ میدونی بدون تو شرشر بارون هم دیگه قصه عاشقونه نمیگه هیچ میدونی بدون تو زنده بودن هم برتم بی معنا میشه کاش همه اینها رو می دونستس و من و تنها دور از خودت نمی ذاشتی... و این است راز عشق و عشق و عشق به نام عشق من را به غیر عشق به نامی صدا نکن غم را دوباره وارد این ماجرا نکن بیهوده پشت پا به غزلهای من نزن با خاطرات خوب من اینگونه تا نکن موهات را ببند دلم را تکان نده در من دوباره فتنه و بلوا به پا نکن من در کنار توست اگر چشم وا کنی خود را اسیر پیچ و خم جاده ها نکن بگذار شهر سرخوش زیبائیت شود تنها به وصف آینه ها اکتفا نکن امشب برای ماندنمان استخاره کن اما به آیه های بدش اعتنا نکن.... باز کن پنجره را من تورا خواهم برد به سر رود خروشان حيات آب اين رود به سرچشمه نميگردد باز بهتر آن است که غفلت نکنيم از آغاز باز کن پنجره را صبح دميد کاش میدانستی که در نبود تو چگونه به آغوش سرد اندوه پناه بردم .... فقط برای یکبار قدم در گلستان خیالم بگذار رخصتی ده تا بر تنهایی خویش خط بطلان بکشم و بگذار با تو فراموش کنم .... منتظر نباش که شبی بشنوی، از این دلبستگی های ساده دل بدیده ام ! توقعی از تو ندارم ! اگر دوست نداری، در همان دامنه دور دریا بمان ! هر جور تو راحتی ! همین سوسوی تو از آنسوی پرده دوری، برای روشن کردن اتاق تنهائیم کافی ست ! من که اینجا کاری نمی کنم ! فقط, گهکاه گمان آمدن تو را در دفترم ثبت می کنم ! همین ! این کار هم که نور نمی خواهد ! می دانم که مثل همیشه، به این حرفهای من می خندی ! با چالهای مهربان گونه ات... حالا، هنوز هم وقتی به آن روزیهای زلالمان نزدیک می شوم، باران می آید ! صدای باران را می شنوی ؟ پرواز در هوای خيال تو ديدنی ست حرفی بزن که موج صدايت شنيدنی ست شعر زلال جوشش احساس های من از موج دلنشين کلام تو چيدنی ست يک قطره عشق کنج دلم را گرفته است اين قطره هم به شوق نگاهت چکيدنی ست خم شد- شکست پشت دل نازکم ولی بار غمت ـ عزيز تر از جان ـ کشيدنی ست من در فضای خلوت تو خيمه می زنم طعم صدای خلوت پاکت چشيدنی ست تا اوج ، راهی ام به تماشای من بيا با بالهای عشق تو پرواز ديدنی ست

براي اطلاع از آپيدت شدن وبلاگ در خبرنامه وبلاگ عضو شويد تا جديدترين مطالب به ايميل شما ارسال شود

آمار وب سایت:

بازدید امروز : 76
بازدید دیروز : 36
بازدید هفته : 191
بازدید ماه : 186
بازدید کل : 20144
تعداد مطالب : 61
تعداد نظرات : 5
تعداد آنلاین : 1

Alternative content

آمار مطالب

:: کل مطالب : 61
:: کل نظرات : 5

آمار کاربران

:: افراد آنلاین : 1
:: تعداد اعضا : 2

کاربران آنلاین

آمار بازدید

:: بازدید امروز : 76
:: باردید دیروز : 36
:: بازدید هفته : 191
:: بازدید ماه : 186
:: بازدید سال : 1404
:: بازدید کلی : 20144

نوشته شده توسط : توحید

1=برنامه بنویسید که اعدادی را از ورودی گرفته واعداد زوج آن را بر روی فرم چاپ کند؟

جواب:یک دکمه بر روی فرم درک کنید

وکد زیر را در دکمه بنویسید

Dim a As Integer

a = InputBox("")

For a = a To 2 Step -2

Print a

Next a

:: موضوعات مرتبط: سوالات وی بی , ,
:: بازدید از این مطلب : 325

امتیاز مطلب : 64

تعداد امتیازدهندگان : 20

مجموع امتیاز : 20

تاریخ انتشار : یک شنبه 14 فروردين 1390 | نظرات ()

نوشته شده توسط : توحید

1- پروژه‌اي ايجاد كنيد كه 10 عدد را از ورودي دريافت و مرتب آنها را بصورت صعودي برروي فرم نشان دهد.

فرمي را ايجاد و سپس برروي آن دوبار كليك كنيد و كد زير را بنويسيد.

Form1.AutoRedraw = True

Dim a(1 To 10) As Integer

For i = 1 To 10

a(i) = Val(InputBox(""))

Next

For i = 1 To 9

For j = i + 1 To 10

If a(i) > a(j) Then

t = a(i)

a(i) = a(j(

a(j) = t

End If

Next

For i = 1 To 10

Print a(i(

Next

:: موضوعات مرتبط: سوالات وی بی , ,
:: بازدید از این مطلب : 345

امتیاز مطلب : 62

تعداد امتیازدهندگان : 21

مجموع امتیاز : 21

تاریخ انتشار : یک شنبه 14 فروردين 1390 | نظرات ()

صفحه قبل 1 صفحه بعد

اس ام اس عاشقانه

اس ام اس لوتي/رفاقت

اس ام اس عاشقانه تنهايي

اس ام اس شکلک دار/تصویری

اس ام اس شكلك دار - اس ام اس تصويري - اس ام اس کاراکتری - Symbol Sms M

اس ام اس عاشقانه تنهايي

اس ام اس دل تنگي

اس ام اس عاشقانه بوسه

اس ام اس عاشقانه دلتنگي

اس ام اس عاشقانه بوسه

اس ام اس بوس

اس ام اس شب

اس ام اس عاشقانه خنده دار

اس ام اس عاشقانه

اس ام اس دل شكسته

اس ام اس تیکه دار

اس ام اس فوتبالي

اس ام اس شعر خنده دار

اس ام اس دخترونه/ضد پسر

اس ام اس پسرونه/ضد دختر

اس ام اس روزهاي باراني

راز زوج خیلی خوشبخت (خنده دار)

عشق خرکی (خنده دار)

جملات كوتاه ناب - ضرب المثل كوتاه زيب

اس ام اس لیلی به مجنون

جوك جديد - اس ام اس خنده دار

اس ام اس بهاري

اس ام اس تابستان

اس ام اس زمستانی

اس ام اس های پاییزی

اس ام اس عید نوروز

اس ام اس 13 به در - اس ام اس سیزده به در

متن زيبا براي كارت عروسي - شعر كارت عروسي

اس ام اس روز مادر

اس ام اس ویژه روز پدر - روز مرد

اس ام اس روز ازدواج - اس ام اس ازدواج

+ اس ام اس دروغ و دروغگو - Sms Lies & Liars

سوالات وی بی

فروردين 1390

اس ام اس دروغ و دروغگو - Sms Lies & Liars

اس ام اس روز ازدواج - اس ام اس ازدواج

اس ام اس ویژه روز پدر - روز مرد

اس ام اس روز مادر

متن زيبا براي كارت عروسي - شعر كارت عروسي

اس ام اس 13 به در - اس ام اس سیزده به در

100 جوك جديد - اس ام اس خنده دار

کیت اگزوز ریموت دار برقی [ ]

ارسال هوایی بار از چین [ ]

خرید از علی اکسپرس [ ]

الوقلیون [ ]

لیست تمام پیوند ها

اس ام اس لوتي/رفاقت

اس ام اس دروغ و دروغگو - Sms Lies & Liars

اس ام اس شكلك دار - اس ام اس تصويري - اس ام اس کاراکتری - Symbol Sms M

اس ام اس عاشقانه تنهايي

اس ام اس عاشقانه بوسه

اس ام اس بوس

اس ام اس عاشقانه

اس ام اس تیکه دار

متن زيبا براي كارت عروسي - شعر كارت عروسي [ 1178 ]

100 جوك جديد - اس ام اس خنده دار [ 756 ]

گاوچران عصبی ! [ 718 ]

اس ام اس دروغ و دروغگو - Sms Lies & Liars [ 709 ]

اس ام اس روز ازدواج - اس ام اس ازدواج [ 655 ]

اس ام اس عاشقانه [ 647 ]

اس ام اس تابستان [ 617 ]

اس ام اس عاشقانه [ 593 ]

اس ام اس روز مادر [ 578 ]

اس ام اس شکلک دار/تصویری [ 562 ]


	نام :
	وب :
	پیام :
	2+2=:


(Refresh)

RSS

متن دلخواه شما

تمام حقوق اين وب سايت و مطالب آن متعلق به ::بزرگترين بانك اس ام اس فارسي:: مي باشد .
كد نويسي و گرافيك قالب توسط : تم ديزاينر